object dmMain: TdmMain
  OldCreateOrder = False
  Left = 30
  Top = 157
  Height = 548
  Width = 623
  object connStores7: TIfxConnection
    Connected = True
    DesignConnection = True
    Params.Strings = (
      'CC8BITLEVEL='
      'CLIENT_LOCALE=en_us.8859-1'
      'COLLCHAR='
      'CONRETRY='
      'CONTIME='
      'DATABASE=stores7@ol_fisher'
      'DB_LOCALE=en_US.819'
      'DBALSBC='
      'DBANSIWARN='
      'DBAPICODE='
      'DBASCIIBC='
      'DBCENTURY='
      'DBCODESET='
      'DBCONNECT='
      'DBCSCONV='
      'DBCSOVERRIDE='
      'DBCSWIDTH='
      'DBDATE='
      'DBFLTMSK='
      'DBLANG='
      'DBMONEY=$.'
      'DBMONEYSCALE='
      'DBNLS='
      'DBPATH='
      'DBSS2='
      'DBSS3='
      'DBTEMP='
      'DBTIME='
      'DELIMIDENT='
      'ESQLMF='
      'FET_BUFF_SIZE='
      'GL_DATE='
      'GL_DATETIME='
      'IFX_AUTOFREE='
      'IFX_DEFERRED_PREPARE='
      'IFX_USE_PREC_16='
      'INFORMIXDIR=C:\Program Files\Informix\Client-SDK'
      'INFORMIXSERVER=ol_fisher'
      'INFORMIXSQLHOSTS='
      'LANG='
      'LC_COLLATE='
      'LC_CTYPE='
      'LC_MONETARY='
      'LC_NUMERIC='
      'LC_TIME='
      'NODEFDAC='
      'NOZEROMDY='
      'OPTMSG='
      'OPTOFC='
      'WIN32HOST='
      'WIN32OPTIONS='
      'WIN32PROTOCOL='
      'WIN32SERVICE='
      'WIN32PASS='
      'WIN32USER=')
    PoolOptions.Enabled = True
    StatementCacheSize = 0
    Monitor = IfxCompositMonitor1
    FieldTypes = IfxFieldTypes1
    Left = 150
    Top = 12
  end
  object datasetCustOrders: TIfxQuery
    Connection = connStores7
    DesignActivation = True
    DataSource = datasrcCustomers
    SQL.Strings = (
      'select * from orders'
      'where customer_num = :customer_num')
    UpdateObject = updateCustOrders
    Left = 174
    Top = 150
    ParamData = <
      item
        DataType = ftAutoInc
        Name = 'customer_num'
        ParamType = ptInput
      end>
  end
  object datasetCustCalls: TIfxTable
    Connection = connStores7
    DesignActivation = True
    FieldDefs = <
      item
        Name = 'customer_num'
        DataType = ftInteger
      end
      item
        Name = 'call_dtime'
        DataType = ftDateTime
        Precision = 12
      end
      item
        Name = 'user_id'
        DataType = ftFixedChar
        Size = 32
      end
      item
        Name = 'call_code'
        DataType = ftFixedChar
        Size = 1
      end
      item
        Name = 'call_descr'
        DataType = ftFixedChar
        Size = 240
      end
      item
        Name = 'res_dtime'
        DataType = ftDateTime
        Precision = 12
      end
      item
        Name = 'res_descr'
        DataType = ftFixedChar
        Size = 240
      end>
    IndexDefs = <
      item
        Name = ' 107_18'
        Fields = 'customer_num; call_dtime'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = ' 107_19'
        Fields = 'customer_num'
      end
      item
        Name = ' 107_20'
        Fields = 'call_code'
      end>
    IndexFieldNames = 'customer_num'
    MasterFields = 'customer_num'
    MasterSource = datasrcCustomers
    StoreDefs = True
    TableName = 'cust_calls'
    Left = 294
    Top = 150
    object datasetCustCallscustomer_num: TIntegerField
      FieldName = 'customer_num'
    end
    object datasetCustCallscall_dtime: TDateTimeField
      FieldName = 'call_dtime'
    end
    object datasetCustCallsuser_id: TStringField
      FieldName = 'user_id'
      FixedChar = True
      Size = 32
    end
    object datasetCustCallscall_code: TStringField
      FieldName = 'call_code'
      FixedChar = True
      Size = 1
    end
    object datasetCustCallscallcodedescr: TStringField
      FieldKind = fkLookup
      FieldName = 'callcodedescr'
      LookupDataSet = datasetCallTypes
      LookupKeyFields = 'call_code'
      LookupResultField = 'code_descr'
      KeyFields = 'call_code'
      Size = 40
      Lookup = True
    end
    object datasetCustCallscall_descr: TStringField
      FieldName = 'call_descr'
      FixedChar = True
      Size = 240
    end
    object datasetCustCallsres_dtime: TDateTimeField
      FieldName = 'res_dtime'
    end
    object datasetCustCallsres_descr: TStringField
      FieldName = 'res_descr'
      FixedChar = True
      Size = 240
    end
  end
  object datasrcCustomers: TDataSource
    DataSet = datasetCustomers
    Left = 336
    Top = 54
  end
  object datasrcCustOrders: TDataSource
    DataSet = datasetCustOrders
    Left = 102
    Top = 114
  end
  object datasrcCustCalls: TDataSource
    DataSet = datasetCustCalls
    Left = 396
    Top = 138
  end
  object datasetCallTypes: TIfxDataSet
    Connection = connStores7
    DesignActivation = True
    SelectSQL.Strings = (
      'select * from call_type')
    Left = 240
    Top = 234
  end
  object IfxFileMonitor1: TIfxFileMonitor
    FileName = 'd:\idac_test.log'
    Left = 258
    Top = 360
  end
  object IfxVisualMonitor1: TIfxVisualMonitor
    Position = mpBottomLeft
    Width = 740
    Height = 203
    HelpFile = 'en_us\04e4\errmess.hlp'
    Left = 360
    Top = 360
  end
  object updateCustOrders: TIfxUpdateSQL
    ModifySQL.Strings = (
      'update orders'
      'set'
      '  order_date = :order_date,'
      '  customer_num = :customer_num,'
      '  ship_instruct = :ship_instruct,'
      '  backlog = :backlog,'
      '  po_num = :po_num,'
      '  ship_date = :ship_date,'
      '  ship_weight = :ship_weight,'
      '  ship_charge = :ship_charge,'
      '  paid_date = :paid_date'
      'where'
      '  order_num = :OLD_order_num')
    InsertSQL.Strings = (
      'insert into orders'
      
        '  (order_num, order_date, customer_num, ship_instruct, backlog, ' +
        'po_num, ship_date, ship_weight, ship_charge, paid_date)'
      'values'
      
        '  (:order_num, :order_date, :customer_num, :ship_instruct, :back' +
        'log, :po_num, :ship_date, :ship_weight, :ship_charge, :paid_date' +
        ')')
    DeleteSQL.Strings = (
      'delete from orders'
      'where'
      '  order_num = :OLD_order_num')
    RefreshSQL.Strings = (
      'select'
      
        '  order_date, customer_num, ship_instruct, backlog, po_num, ship' +
        '_date, ship_weight, ship_charge, paid_date'
      'from'
      '  orders'
      'where'
      '  order_num = :order_num')
    Left = 102
    Top = 198
  end
  object datasetCustomers: TIfxTable
    Connection = connStores7
    DesignActivation = True
    RecordRefreshMode = rmInserted
    TableName = 'customer'
    Left = 240
    Top = 78
  end
  object IfxCompositMonitor1: TIfxCompositMonitor
    Items = <
      item
        Monitor = IfxFileMonitor1
      end
      item
        Monitor = IfxVisualMonitor1
      end>
    Left = 156
    Top = 360
  end
  object IfxFieldTypes1: TIfxFieldTypes
    Left = 234
    Top = 12
  end
end
